home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR02 / DCGAMES1.ZIP / NEWGAME.ZIP / TELLER.SCR < prev    next >
Text File  |  1992-09-08  |  936b  |  41 lines
  1. !
  2. ! Default Fortune Teller script..
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6.  
  7. !------------------------------------------------------------------------!
  8. :@TALK ! Talk to the character !
  9. !------------------------------------------------------------------------!
  10.  
  11. ! First, say hello.. !
  12.   if NPC.V0 > 0 then
  13.     writeln( "Hello ", player.name, ". What brings you back?" );
  14.   else
  15.     writeln( "How may I help you?" );
  16.   endif;
  17.  
  18. ! Now, set some variables..
  19.   NPC.V0 = 1; ! From know on, remember we've been here
  20.  
  21.   L1 = select$( "Tell Fortune", npc.value, "Leave", -1 );
  22.  
  23.   if L1 <> 0 then
  24.     if NPC.V0 > 0 then
  25.       writeln( "As you wish.." );
  26.     else
  27.       writeln( "Fine, but you may live to regret it.." );
  28.     endif;
  29.     STOP;
  30.   endif;
  31.  
  32.   if npc.value > group.gold then
  33.     writeln( "You don't have enough money.." );
  34.     STOP;
  35.   endif;
  36.  
  37.   dec( group.gold, npc.value );
  38.   readtext( npc.text );
  39.   STOP;
  40.  
  41.